Family Forum 255/SOMC Family Forum 255.iso/somc/SNEAK.dir/00001_Script_1

Text File | 1998-09-11 | 8KB | 252 lines

on startMovie
  --
  global whichsneak
  set whichsneak to "FAMILY"

  --* This declares the variables for the finger cursor. *
  global snFINGER, snFINGERMASK
  set snFINGER to the memberNum of member "Finger1"
  set snFINGERMASK to the memberNum of member "Finger2"

  glowClear()

end


on showpuppets TRUEFALSE
  repeat with x = 2 to 6
    set the visible of sprite x to TRUEFALSE
  end repeat
end



on puppetsneaks sneakONOFF
  repeat with x = 2 to 6
    puppetSprite x,sneakONOFF
  end repeat
  repeat with x = 52 to 56
    puppetSprite x,sneakONOFF
  end repeat
end



on sneakswap WHICHSNEAK
  global FAMG,GAMEG,KIDSG,MACG,PRODG,EDUG

  puppetsneaks (FALSE)

  case WHICHSNEAK of
    "EDU":
      set the memberNum of sprite 2 to the memberNum of member "Snk FAM"
      set FAMG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk GAME"
      set GAMEG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk KIDS"
      set KIDSG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 53 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 54 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"

    "FAMILY":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set eduG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk GAME"
      set GAMEG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk KIDS"
      set KIDSG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk EDUG"
      set the memberNum of sprite 53 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 54 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"

    "GAME":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk KIDS"
      set KIDSG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk eduG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"

    "KIDS":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk GAME"
      set GAMEG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56
      set the memberNum of sprite 52 to the memberNum of member "Snk EDUG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"


    "MAC":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"

      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk GAME"
      set GAMEG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk KIDS"
      set KIDSG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 55 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"

    "PROD":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk GAME"
      set GAMEG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk KIDS"
      set KIDSG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk MAC"
      set MACG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk EDUG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 55 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 56 to the memberNum of member "Snk MACG"


  end case
  UpdateStage
  puppetsneaks (TRUE)


end


--* This handler hides/shows the glow images. eg: glow(5,TRUE) *

on glow WHICHSPRITE, TRUEORFALSE
  set the visible of sprite WHICHSPRITE to TRUEORFALSE
end glow

--* TURN OF ALL GLOWS ON START
on glowClear
  repeat with i = 50 to 65
    glow(i)
  end repeat
end

--* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*

on textglow WHICHMEMBER, COLORNUMBER
  set the foreColor of member WHICHMEMBER to COLORNUMBER
end textglow

--* This is for using a HotSpot or Button for closing the window or a overlaid
--* cover up sprite THIS IS AN EXAMPLE NOT A HANDLER

--on mouseUp
--  global  enableHotspots
--  doClick()
--  if (the visible of sprite 35) then
--    hideFonts()
--    restoreBI()
--  else
--    close window "BIART"
--    forget window "BIART"
--    tell the stage to enableHotspots()
--  end if
--end mouseUp



--* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *

on openMIAW MYWINDOW
  set myRect=the rect of window MYWINDOW
  set myStage=the rect of the Stage
  set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  set the rect of window MYWINDOW=myNewRect
  set the windowType of window MYWINDOW to 2
  open window MYWINDOW
end openMIAW


--* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *

on doRollover numsprite
  glow(numsprite,TRUE)
  global snfinger,snfingermask
  cursor[snfinger,snfingermask]
  updatestage
  puppetsound 1, "rollsound"
  --  repeat while soundbusy(1)
  --  end repeat
end


on doRollover2 numsprite
  glow(numsprite,TRUE)
  global snfinger,snfingermask
  cursor[snfinger,snfingermask]
  updatestage
  puppetsound 1, "rollsound2"
  --  repeat while soundbusy(1)
  --  end repeat
end

--* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
on doRollout numsprite
  glow(numsprite,FALSE)
  cursor 0
end

--* PLAYS A CLICK SOUND

on doClick
  puppetsound 1,"clicksound"
  updateStage
end